home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 1
/
CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso
/
Aminet
/
biz
/
dbase
/
AFile_v403.lha
/
AFile
/
InstallAFile
< prev
next >
Wrap
Text File
|
1995-05-07
|
2KB
|
74 lines
;---------------------------------------------------------------
;
; Installer script for AFile
; $VER: 36.0 (24.04.94)
; Written by Denis GOUNELLE
;
;---------------------------------------------------------------
;
(complete 0)
(set ProgVer "3.11")
(set ProgName "AFile")
(set KickVer (/ (getversion) 65536))
(set SCFlag (if (AND (> KickVer 35) (exists "S:.SoftConfig")) 1 0))
;
(set InstallOpt
(askoptions (prompt "Which part of the program whould you like to install ?")
(help @askoptions-help)
(choices "Program" "Locales")
)
)
;
;--------------------- Install the program --------------------
;
(complete 33)
(if (BITAND InstallOpt 1)
((set ProgDir (askdir
(prompt "Select the directory where to install AFile")
(help "The program will be copied in this directory. You may want to install AFile in a directory which is in your default path.")
(default "SYS:Utilities")
)
)
(copyfiles (prompt "Installing program")
(help @copyfiles-help)
(source ProgName)
(newname "AFile")
(dest ProgDir)
(infos)
)
(if SCFlag (run (cat "SoftConfig ADD AFile " (tackon ProgDir "AFile") " FILE " ProgVer)))
)
)
;
;--------------------- Install the locale --------------------
;
(complete 66)
(if (BITAND InstallOpt 2)
((set Langage (askchoice (prompt "Which locale do you want to install ?")
(help @askchoice-help)
(choices "deutsch" "español" "français" "none")))
(if (= Langage 0) (set LocaleName "deutsch"))
(if (= Langage 1) (set LocaleName "español"))
(if (= Langage 2) (set LocaleName "français"))
(if (NOT (= Langage 2))
((set LocaleSrc (tackon "catalogs" LocaleName))
(set LocaleDst (tackon "LOCALE:" LocaleSrc))
(set LocaleName "AFile.catalog")
(if (NOT (exists LocaleDst)) (makedir LocaleDst (prompt "Creating locale directory") (help @makedir-help)))
(copyfiles (prompt "Installing locale")
(help @copyfiles-help)
(source (tackon LocaleSrc LocaleName))
(dest LocaleDst)
)
(if SCFlag
((run (cat "SoftConfig ADD " LocaleName " " (tackon LocaleDst LocaleName) " FILE " ProgVer))
(run (cat "SoftConfig ATTACH AFile " LocaleName))
)
))
))
)
;
(complete 100)
(set @default-dest ProgDir)